home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 1
/
Cream of the Crop 1.iso
/
CAD
/
PKEY11_1.ARJ
/
OH.LSP
< prev
next >
Wrap
Text File
|
1992-03-14
|
1KB
|
31 lines
;Overhead cabinets (very simplistic)
;
; ********Patrick J. McKee, author********
; ****Copyright 1992, Power Key tm****
;
(defun ohdtr (angg)
(* pi (/ angg 180.0)))
(if (= do1 nil)(setq *do1 24))
(setq oer *error* *error* err)
(initget (+ 2 4))
(setq do1(getdist(strcat "Enter countertop depth <" (rtos *do1) ">: ")))
(if (= do1 nil)(setq do1 *do1)(setq *do1 do1))
(setq *sk "xsink")
(setq sk(getstring "\nDo you want a sink in this run ? <N>"))
(if (= sk "")(setq *sk "")(setq *sk "d:\\kesym1\\xdsink"))
(setq cd1(/ do1 2))
(setq cd2 do1)
(setq pt1 (getpoint "\nPick starting point : "))
(setq pt2 (getpoint pt1 "\nNext point "))
(if (= pt2 nil)(err))
(setq ang (angle pt1 pt2))
(setq pta (polar pt1 (+ ang (ohdtr 90)) cd2))
(setq ptb (polar pt2 (+ ang (ohdtr 90)) cd2))
(command "layer" "m" "MW" "")
(command "line" pt1 pta ptb pt2 "")
(setq pt5 (polar pt1 (+ ang (ohdtr 90)) cd1))
(setq pt6 (polar pt2 (+ ang (ohdtr 90)) cd1))
(command "layer" "m" "OH" "")
(command "line" pt5 pt6 "")
(if (= sk "")(setq sk nil)(command"LAYER""s""pf""""insert" *sk pause "" "" ))
(princ)